home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / math / insu.bas < prev    next >
BASIC Source File  |  1993-11-30  |  848b  |  30 lines
  1. 10 CLS
  2. 20 PRINT "因数分解の計算"
  3. 30 PRINT "aX2+bX+c"
  4. 40 INPUT "a=",A
  5. 50 INPUT "b=",B
  6. 60 INPUT "c=",C
  7. 70 IF A>1 OR A<1 THEN 100
  8. 80 IF A=1        THEN 110
  9. 90 IF B=1        THEN 120
  10. 100 PRINT A"X2+"B"X+"C : GOTO 130
  11. 110 PRINT "X2+"B"X+"C  : GOTO 130
  12. 120 PRINT A"X2+X+"C    : GOTO 130
  13. 130 D=B*B-4*A*C
  14. 140 X1=(-B+SQR(D))/(2*A)
  15. 150 X2=(-B-SQR(D))/(2*A)
  16. 160 X1=-1*X1 : X2=-1*X2
  17. 170 IF X1=X2 AND X1>0 THEN 230
  18. 180 IF X1=X2 AND X1<0 THEN 240
  19. 190 IF X1>0 AND X2>0  THEN 250
  20. 200 IF X1<0 AND X2>0  THEN 260
  21. 210 IF X1>0 AND X2<0  THEN 270
  22. 220 IF X1<0 AND X2<0  THEN 280
  23. 230 PRINT "(X+"X1")2"       : GOTO 290
  24. 240 PRINT "(X"X1")2"        : GOTO 290
  25. 250 PRINT "(X+"X1")(X+"X2")": GOTO 290
  26. 260 PRINT "(X"X1")(X+"X2")" : GOTO 290
  27. 270 PRINT "(X+"X1")(X"X2")" : GOTO 290
  28. 280 PRINT "(X"X1")(X"X2")"
  29. 290 A$=INKEY$:IF A$="" THEN 290 ELSE 10
  30.